home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
INTERRUP.SWG
/
0004_ISRINFO.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
654b
|
36 lines
{
SEAN PALMER
> Does anyone know how to Write an ISR (interrupt service routine) that will
> continue With the interrupt afterwards. EX: if you Write an ISR that traps
> the mouse Int 33h but let the mouse still operate.
Try:
}
Var
oldMouseHook : Procedure;
Procedure mouseHook(AX,BX,CX,DX,SI,DI,DS,ES,BP); interrupt;
begin
{Your stuff goes here}
{make sure it doesn't take TOO long!}
Asm
pushF;
end; {simulate an interrupt}
oldMouseHook; {call old handler}
end;
{ to install: }
getIntVec($33,@oldMouseHook);
setIntVec($33,@mouseHook);
{ to deinstall: }
setIntVec($33,@oldMouseHook);